ocr: Project1 - Microsoft Visual Basic design] - OX File Edit View Insert Run Iools Add-Ins Help J : - DO 1080.1170 t:. : 6810: x4 4545 X Form1 Lvl Drainall a l0 s FileClass -X A abl Object: (General) Proc: FileUpen x Y AmOpen = False Case ACCESS WRITE On Error GOTO Flleopentrror Open FlleName For Append Access Write AS I Amopen = True Fileopen = FileNumber On Error GoTo 0 Exit Function Case ACCESS READWRITE dummy = Assert (False, Fileobject.Fileopen: F - & "Readwrite Access speciiled for Append a FE Amopen = False Case Else OLE 00 I Start a 1 4 Project1 - Microsoft Visual D Forml 33 FileClass 9:07 ...
